home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
err87_13.zip
/
DV87.ZIP
/
DV87.A86
next >
Wrap
Text File
|
1990-08-14
|
777b
|
33 lines
; Program to redirect coprocessor errors from INT 5D (where Desqview
; puts them) to INT 75 (where Turbo Pascal expects them).
; Written by D.J. Murdoch for the public domain
; Assemble with A86, the shareware assembler from Eric Isaacson
code segment
jmp start
int75 dd ?
int5disr:
push ds
push ax
xor ax,ax
mov ds,ax
mov ax,w[075h*4]
cs mov w[offset int75],ax
mov ax,w[075h*4+2]
cs mov w[offset int75][2],ax
pop ax
pop ds
cs jmp int75
start:
mov ah,025h
mov al,05dh
mov dx,offset int5Disr
int 021h
mov dx,start
int 027h
end